5 NT=0
10 A = 20180; B=A; for K=0 to 13
20 input @(K); next K
30 for K = 0 to 13; clear 
40 CY = 0;print K,@(K)
50 D = KP; if D=31 goto 80
60 if D=57 goto 90
70 goto 50
80 input "CHANGE=",L;@(K)=L
90 next K
100 A=B; for K= 0 to 13
110 %(A)=@(K); A=A+2; next K
120 if &(20) = 8 goto 30
130 C=20180; gosub 160
140 C=20190; gosub 160
150 goto 120
160 clear ; CALL C; return 
:return ;run 
